home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL24.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-24  |  276 b   |  12 lines
  1.                /* Program 24 */
  2. domains
  3.     list = integer*
  4. predicates
  5.     readlist(list)
  6. goal
  7.     write("Write a list of integers"),readlist(L),
  8.     write("\nThe Turbo Prolog list is ",L).
  9. clauses
  10.     readlist([H|T]) :- readint(H),!,readlist(T).
  11.     readlist([]).
  12.